VB中如何利用用"*"打印图形形状?

dim I as integer
dim J as integer

private sub command1_click()
for i=1 to 3'行
for j=1 to i'列
me.print "*";
next j
me.print'换行
next i
end sub

右对齐的:
Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 3
Print Tab(4 - i);
For j = 1 To i
Print "*";
Next
Print
Next
End Sub

左对齐的:
Private Sub Command2_Click()
Dim i%, j%
For i = 1 To 3
For j = 1 To i
Print "*";
Next
Print
Next
End Sub